clean-up unnecessary function prevent_gc

diff --git a/src/comp.c b/src/comp.c
index 0ec0edd27ea3f313bbe2c0f36dcbceac68e12f74..9f8c24f3cf081864dc044262dfd8c94b5889770c 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -3204,11 +3204,6 @@ helper_PSEUDOVECTOR_TYPEP_XUNTAG (Lisp_Object a, enum pvec_type code)
 /**************************************/
 
 static Lisp_Object Vnative_elisp_refs_hash;
-static void
-prevent_gc (Lisp_Object obj)
-{
-  Fputhash (obj, Qt, Vnative_elisp_refs_hash);
-}
 
 typedef char *(*comp_lit_str_func) (void);